;
;Exam2013H25tPrg2 rbg̕uN
;---------------------------
MAIN START
	LAD GR1,AA
	LD GR2,P
	LD GR3,Q
	LD GR0,BB
	CALL XBREP
	RET
;AA DC #0000,#0000,#0000,#0000,#0000
AA DC #A07C,#813F,#0872,#983F  ; Alpha At@
BB DC #D6C0 ; Beta x[^
;N DC 5
P DC 12
Q DC 10
	END
;--------------
XBREP START
	RPUSH
	LD GR7,GR2
	SRL GR7,4      ;ڂu邩ׂBoPU @J
	ADDL GR1,GR7   ;u̐擪AhXݒ
	AND GR2,=#000F ;oPU̗]߂B @C
	CALL BREP
	RPOP
	RET
	END
;-------------------
BREP START
	RPUSH
	LD GR4,GR0
	LD GR5,GR0
	LD GR6,=#8000 ;MASK p^[̏@@G
	LAD GR3,-1,GR3
	SRA GR6,0,GR3 ;GR6 <--- Q rbgMASKp^[
	LD GR7,GR6
	LD GR3,=16 ;
	SUBA GR3,GR2 ; GR3 <--- 16-P
	SRL GR4,0,GR2 ;Pڗpȕ
	SLL GR5,0,GR3 ;Qڗpȕ
	SRL GR6,0,GR2 ;PڗpMASKp^[
	SLL GR7,0,GR3 ;PڗpMASKp^[
	LD GR2,0,GR1 ;Pڂ̏
	XOR GR6,=#FFFF	;
	AND GR2,GR6       ;
	OR GR2,GR4     ;@@E
	ST GR2,0,GR1
	LD GR2,1,GR1 ;Qڂ̏
	XOR GR7,=#FFFF   ;
	AND GR2,GR7      ;
	OR GR2,GR5    ;@@E
	ST GR2,1,GR1
	RPOP
	RET
	END
;------------------------
